home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / isconn_1 / mdi.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-31  |  38.8 KB  |  1,361 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Begin VB.MDIForm MDI 
  6.    BackColor       =   &H8000000C&
  7.    Caption         =   "Mostafa-Page designer"
  8.    ClientHeight    =   8310
  9.    ClientLeft      =   165
  10.    ClientTop       =   735
  11.    ClientWidth     =   11880
  12.    Icon            =   "MDI.frx":0000
  13.    LinkTopic       =   "MDIForm1"
  14.    StartUpPosition =   3  'Windows Default
  15.    WindowState     =   2  'Maximized
  16.    Begin MSComctlLib.Toolbar Toolbar2 
  17.       Align           =   3  'Align Left
  18.       Height          =   6225
  19.       Left            =   0
  20.       TabIndex        =   5
  21.       Top             =   360
  22.       Width           =   600
  23.       _ExtentX        =   1058
  24.       _ExtentY        =   10980
  25.       ButtonWidth     =   1032
  26.       ButtonHeight    =   1005
  27.       Appearance      =   1
  28.       Style           =   1
  29.       ImageList       =   "ImageList2"
  30.       DisabledImageList=   "ImageList2"
  31.       HotImageList    =   "ImageList2"
  32.       _Version        =   393216
  33.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  34.          NumButtons      =   5
  35.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  36.             Key             =   "image"
  37.             Object.ToolTipText     =   "Image"
  38.             ImageIndex      =   1
  39.          EndProperty
  40.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  41.             Key             =   "text"
  42.             Object.ToolTipText     =   "Text"
  43.             ImageIndex      =   2
  44.          EndProperty
  45.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  46.             Key             =   "tag"
  47.             Object.ToolTipText     =   "Html tag"
  48.             ImageIndex      =   3
  49.          EndProperty
  50.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  51.             Key             =   "line"
  52.             Object.ToolTipText     =   "Line"
  53.             ImageIndex      =   4
  54.          EndProperty
  55.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  56.             Key             =   "mouse"
  57.             Object.ToolTipText     =   "Mouse"
  58.             ImageIndex      =   7
  59.          EndProperty
  60.       EndProperty
  61.       OLEDropMode     =   1
  62.       Begin VB.PictureBox Picture11 
  63.          AutoSize        =   -1  'True
  64.          BorderStyle     =   0  'None
  65.          Height          =   735
  66.          Left            =   0
  67.          ScaleHeight     =   735
  68.          ScaleWidth      =   615
  69.          TabIndex        =   6
  70.          Top             =   4080
  71.          Visible         =   0   'False
  72.          Width           =   615
  73.       End
  74.       Begin MSComctlLib.ImageList ImageList2 
  75.          Left            =   3720
  76.          Top             =   240
  77.          _ExtentX        =   1005
  78.          _ExtentY        =   1005
  79.          BackColor       =   -2147483643
  80.          ImageWidth      =   32
  81.          ImageHeight     =   32
  82.          MaskColor       =   12632256
  83.          _Version        =   393216
  84.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  85.             NumListImages   =   7
  86.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.                Picture         =   "MDI.frx":030A
  88.                Key             =   ""
  89.             EndProperty
  90.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  91.                Picture         =   "MDI.frx":0F5E
  92.                Key             =   ""
  93.             EndProperty
  94.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  95.                Picture         =   "MDI.frx":1BB2
  96.                Key             =   ""
  97.             EndProperty
  98.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  99.                Picture         =   "MDI.frx":2806
  100.                Key             =   ""
  101.             EndProperty
  102.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  103.                Picture         =   "MDI.frx":345A
  104.                Key             =   ""
  105.             EndProperty
  106.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  107.                Picture         =   "MDI.frx":3776
  108.                Key             =   ""
  109.             EndProperty
  110.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.                Picture         =   "MDI.frx":38DA
  112.                Key             =   ""
  113.             EndProperty
  114.          EndProperty
  115.       End
  116.    End
  117.    Begin MSComctlLib.Toolbar Toolbar1 
  118.       Align           =   1  'Align Top
  119.       Height          =   360
  120.       Left            =   0
  121.       TabIndex        =   4
  122.       Top             =   0
  123.       Width           =   11880
  124.       _ExtentX        =   20955
  125.       _ExtentY        =   635
  126.       ButtonWidth     =   609
  127.       ButtonHeight    =   582
  128.       Appearance      =   1
  129.       Style           =   1
  130.       ImageList       =   "ImageList1"
  131.       DisabledImageList=   "ImageList1"
  132.       HotImageList    =   "ImageList1"
  133.       _Version        =   393216
  134.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  135.          NumButtons      =   8
  136.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  137.             Style           =   4
  138.          EndProperty
  139.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  140.             Key             =   "new"
  141.             Object.ToolTipText     =   "New"
  142.             ImageIndex      =   1
  143.          EndProperty
  144.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  145.             Key             =   "open"
  146.             Object.ToolTipText     =   "Open"
  147.             ImageIndex      =   2
  148.          EndProperty
  149.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  150.             Key             =   "save"
  151.             Object.ToolTipText     =   "Save"
  152.             ImageIndex      =   3
  153.          EndProperty
  154.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  155.             Style           =   3
  156.          EndProperty
  157.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  158.             Key             =   "cut"
  159.             Object.ToolTipText     =   "Cut"
  160.             ImageIndex      =   4
  161.          EndProperty
  162.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  163.             Key             =   "copy"
  164.             Object.ToolTipText     =   "Copy"
  165.             ImageIndex      =   5
  166.          EndProperty
  167.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  168.             Key             =   "paste"
  169.             Object.ToolTipText     =   "Paste"
  170.             ImageIndex      =   6
  171.          EndProperty
  172.       EndProperty
  173.       OLEDropMode     =   1
  174.       Begin MSComctlLib.ImageList ImageList1 
  175.          Left            =   3600
  176.          Top             =   120
  177.          _ExtentX        =   1005
  178.          _ExtentY        =   1005
  179.          BackColor       =   -2147483643
  180.          ImageWidth      =   16
  181.          ImageHeight     =   16
  182.          MaskColor       =   12632256
  183.          _Version        =   393216
  184.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  185.             NumListImages   =   6
  186.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  187.                Picture         =   "MDI.frx":3BF6
  188.                Key             =   ""
  189.             EndProperty
  190.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  191.                Picture         =   "MDI.frx":3D0A
  192.                Key             =   ""
  193.             EndProperty
  194.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  195.                Picture         =   "MDI.frx":3E1E
  196.                Key             =   ""
  197.             EndProperty
  198.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  199.                Picture         =   "MDI.frx":3F32
  200.                Key             =   ""
  201.             EndProperty
  202.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.                Picture         =   "MDI.frx":4046
  204.                Key             =   ""
  205.             EndProperty
  206.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "MDI.frx":415A
  208.                Key             =   ""
  209.             EndProperty
  210.          EndProperty
  211.       End
  212.    End
  213.    Begin VB.PictureBox Picture13 
  214.       Align           =   2  'Align Bottom
  215.       BorderStyle     =   0  'None
  216.       Height          =   1725
  217.       Left            =   0
  218.       ScaleHeight     =   1725
  219.       ScaleWidth      =   11880
  220.       TabIndex        =   0
  221.       Top             =   6585
  222.       Width           =   11880
  223.       Begin VB.ComboBox Combo1 
  224.          Height          =   315
  225.          IntegralHeight  =   0   'False
  226.          Left            =   7080
  227.          TabIndex        =   7
  228.          Text            =   "http://www.geocities.com/ResearchTriangle/Campus/4598/pd.html"
  229.          ToolTipText     =   "Address"
  230.          Top             =   0
  231.          Width           =   3615
  232.       End
  233.       Begin VB.CommandButton Command5 
  234.          Caption         =   "Refresh"
  235.          Height          =   315
  236.          Left            =   5520
  237.          TabIndex        =   12
  238.          ToolTipText     =   "Refresh"
  239.          Top             =   0
  240.          Width           =   735
  241.       End
  242.       Begin VB.CommandButton Command2 
  243.          Caption         =   "Next"
  244.          Height          =   315
  245.          Left            =   5040
  246.          TabIndex        =   9
  247.          ToolTipText     =   "Go next"
  248.          Top             =   0
  249.          Width           =   495
  250.       End
  251.       Begin VB.CommandButton Command4 
  252.          Caption         =   "Home"
  253.          Height          =   315
  254.          Left            =   4440
  255.          TabIndex        =   11
  256.          ToolTipText     =   "Go home"
  257.          Top             =   0
  258.          Width           =   615
  259.       End
  260.       Begin VB.CommandButton Command1 
  261.          Caption         =   "Back"
  262.          Height          =   315
  263.          Left            =   3960
  264.          TabIndex        =   8
  265.          ToolTipText     =   "Go back"
  266.          Top             =   0
  267.          Width           =   495
  268.       End
  269.       Begin VB.CommandButton Command8 
  270.          Enabled         =   0   'False
  271.          Height          =   315
  272.          Left            =   1560
  273.          TabIndex        =   3
  274.          Top             =   0
  275.          Width           =   2415
  276.       End
  277.       Begin VB.CommandButton Command7 
  278.          Caption         =   "Update view"
  279.          Height          =   315
  280.          Left            =   360
  281.          TabIndex        =   2
  282.          ToolTipText     =   "Update the view of your design on the browser"
  283.          Top             =   0
  284.          Width           =   1215
  285.       End
  286.       Begin VB.CommandButton Command3 
  287.          Caption         =   "[---]"
  288.          Height          =   315
  289.          Left            =   0
  290.          TabIndex        =   10
  291.          ToolTipText     =   "Large or dislarge the browser window"
  292.          Top             =   0
  293.          Width           =   375
  294.       End
  295.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  296.          Height          =   6495
  297.          Left            =   0
  298.          TabIndex        =   1
  299.          Top             =   315
  300.          Width           =   3735
  301.          ExtentX         =   6588
  302.          ExtentY         =   11456
  303.          ViewMode        =   0
  304.          Offline         =   0
  305.          Silent          =   0
  306.          RegisterAsBrowser=   0
  307.          RegisterAsDropTarget=   1
  308.          AutoArrange     =   0   'False
  309.          NoClientEdge    =   0   'False
  310.          AlignLeft       =   0   'False
  311.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  312.          Location        =   ""
  313.       End
  314.       Begin VB.Label Label1 
  315.          AutoSize        =   -1  'True
  316.          BackStyle       =   0  'Transparent
  317.          Caption         =   "Address:"
  318.          BeginProperty Font 
  319.             Name            =   "MS Sans Serif"
  320.             Size            =   8.25
  321.             Charset         =   0
  322.             Weight          =   400
  323.             Underline       =   -1  'True
  324.             Italic          =   0   'False
  325.             Strikethrough   =   0   'False
  326.          EndProperty
  327.          Height          =   195
  328.          Left            =   6360
  329.          TabIndex        =   13
  330.          Top             =   45
  331.          Width           =   615
  332.       End
  333.    End
  334.    Begin MSComDlg.CommonDialog CommonDialog1 
  335.       Left            =   0
  336.       Top             =   0
  337.       _ExtentX        =   847
  338.       _ExtentY        =   847
  339.       _Version        =   393216
  340.       CancelError     =   -1  'True
  341.    End
  342.    Begin VB.Menu mnufile 
  343.       Caption         =   "File"
  344.       Begin VB.Menu mnunew 
  345.          Caption         =   "New"
  346.          Shortcut        =   ^N
  347.       End
  348.       Begin VB.Menu mnuopen 
  349.          Caption         =   "Open"
  350.          Shortcut        =   ^O
  351.       End
  352.       Begin VB.Menu mnusep1 
  353.          Caption         =   "-"
  354.       End
  355.       Begin VB.Menu mnusave 
  356.          Caption         =   "Save"
  357.          Shortcut        =   ^S
  358.       End
  359.       Begin VB.Menu mnysaveas 
  360.          Caption         =   "Save as"
  361.       End
  362.       Begin VB.Menu mnusep2 
  363.          Caption         =   "-"
  364.       End
  365.       Begin VB.Menu mnuprint 
  366.          Caption         =   "Print"
  367.          Shortcut        =   ^P
  368.       End
  369.       Begin VB.Menu mnuprintsetup 
  370.          Caption         =   "Print setup"
  371.       End
  372.       Begin VB.Menu mnusep3 
  373.          Caption         =   "-"
  374.       End
  375.       Begin VB.Menu mnuexit 
  376.          Caption         =   "Exit"
  377.       End
  378.    End
  379.    Begin VB.Menu mnuedit 
  380.       Caption         =   "Edit"
  381.       Begin VB.Menu mnucut 
  382.          Caption         =   "Cut"
  383.          Shortcut        =   ^X
  384.       End
  385.       Begin VB.Menu mnucopy 
  386.          Caption         =   "Copy"
  387.          Shortcut        =   ^C
  388.       End
  389.       Begin VB.Menu mnupaste 
  390.          Caption         =   "Paste"
  391.          Shortcut        =   ^V
  392.       End
  393.       Begin VB.Menu mnudelete 
  394.          Caption         =   "Delete"
  395.          Shortcut        =   {DEL}
  396.       End
  397.    End
  398.    Begin VB.Menu mnuview 
  399.       Caption         =   "View"
  400.       Begin VB.Menu mnupagesetup 
  401.          Caption         =   "Page setup"
  402.          Shortcut        =   {F2}
  403.       End
  404.       Begin VB.Menu mnuas 
  405.          Caption         =   "Actual size"
  406.          Shortcut        =   {F9}
  407.       End
  408.       Begin VB.Menu nbup 
  409.          Caption         =   "Zoom up"
  410.       End
  411.       Begin VB.Menu mnudwn 
  412.          Caption         =   "Zoom down"
  413.       End
  414.    End
  415.    Begin VB.Menu mnuinsert 
  416.       Caption         =   "Insert"
  417.       Begin VB.Menu mnuimage 
  418.          Caption         =   "Image"
  419.          Shortcut        =   ^I
  420.       End
  421.       Begin VB.Menu mnutext 
  422.          Caption         =   "Text"
  423.          Shortcut        =   ^T
  424.       End
  425.       Begin VB.Menu mnuline 
  426.          Caption         =   "Line"
  427.          Shortcut        =   ^L
  428.       End
  429.       Begin VB.Menu mnuhtml 
  430.          Caption         =   "Html code"
  431.          Shortcut        =   ^H
  432.       End
  433.       Begin VB.Menu mnulive 
  434.          Caption         =   "Live pictures"
  435.          Shortcut        =   +{INSERT}
  436.       End
  437.    End
  438.    Begin VB.Menu mnuexp 
  439.       Caption         =   "Export html"
  440.    End
  441.    Begin VB.Menu mnuhelp 
  442.       Caption         =   "Help"
  443.       Begin VB.Menu mnucontent 
  444.          Caption         =   "Content"
  445.          Shortcut        =   {F1}
  446.       End
  447.       Begin VB.Menu mnubuy 
  448.          Caption         =   "Buy it"
  449.       End
  450.       Begin VB.Menu mnusep6 
  451.          Caption         =   "-"
  452.       End
  453.       Begin VB.Menu mnuabout 
  454.          Caption         =   "About"
  455.          HelpContextID   =   1
  456.       End
  457.    End
  458. Attribute VB_Name = "MDI"
  459. Attribute VB_GlobalNameSpace = False
  460. Attribute VB_Creatable = False
  461. Attribute VB_PredeclaredId = True
  462. Attribute VB_Exposed = False
  463. Dim cancela As Boolean
  464. Dim newnum As Integer
  465. Private Const SC_CLOSE As Long = &HF060&
  466. Private Const MIIM_STATE As Long = &H1&
  467. Private Const MIIM_ID As Long = &H2&
  468. Private Const MFS_GRAYED As Long = &H3&
  469. Private Const WM_NCACTIVATE As Long = &H86
  470. Private Type MENUITEMINFO
  471.     cbSize As Long
  472.     fMask As Long
  473.     fType As Long
  474.     fState As Long
  475.     wID As Long
  476.     hSubMenu As Long
  477.     hbmpChecked As Long
  478.     hbmpUnchecked As Long
  479.     dwItemData As Long
  480.     dwTypeData As String
  481.     cch As Long
  482.     End Type
  483. Private Declare Function GetSystemMenu Lib "user32" ( _
  484.     ByVal hwnd As Long, ByVal bRevert As Long) As Long
  485. Private Declare Function GetMenuItemInfo Lib "user32" Alias _
  486.     "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, _
  487.     ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
  488. Private Declare Function SetMenuItemInfo Lib "user32" Alias _
  489.     "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, _
  490.     ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
  491. Private Declare Function SendMessage Lib "user32" Alias _
  492.     "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
  493.     ByVal wParam As Long, lParam As Any) As Long
  494. Private Declare Function IsWindow Lib "user32" _
  495.     (ByVal hwnd As Long) As Long
  496. Dim larged As Boolean
  497. Public Function EnableCloseButton(ByVal hwnd As Long, Enable As Boolean) As Integer
  498.     Const xSC_CLOSE As Long = -10
  499.     ' Check that the window handle passed is valid
  500.     EnableCloseButton = -1
  501.     If IsWindow(hwnd) = 0 Then Exit Function
  502.     ' Retrieve a handle to the window's system menu
  503.     Dim hMenu As Long
  504.     hMenu = GetSystemMenu(hwnd, 0)
  505.     ' Retrieve the menu item information for the close menu item/butt
  506.     '     on
  507.     Dim MII As MENUITEMINFO
  508.     MII.cbSize = Len(MII)
  509.     MII.dwTypeData = String(80, 0)
  510.     MII.cch = Len(MII.dwTypeData)
  511.     MII.fMask = MIIM_STATE
  512.     If Enable Then
  513.         MII.wID = xSC_CLOSE
  514.     Else
  515.         MII.wID = SC_CLOSE
  516.     End If
  517.     EnableCloseButton = -0
  518.     If GetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then Exit Function
  519.     ' Switch the ID of the menu item so that VB can not undo the acti
  520.     '     on itself
  521.     Dim lngMenuID As Long
  522.     lngMenuID = MII.wID
  523.     If Enable Then
  524.         MII.wID = SC_CLOSE
  525.     Else
  526.         MII.wID = xSC_CLOSE
  527.     End If
  528.     MII.fMask = MIIM_ID
  529.     EnableCloseButton = -2
  530.     If SetMenuItemInfo(hMenu, lngMenuID, False, MII) = 0 Then Exit Function
  531.     ' Set the enabled / disabled state of the menu item
  532.     If Enable Then
  533.         MII.fState = (MII.fState Or MFS_GRAYED)
  534.         MII.fState = MII.fState - MFS_GRAYED
  535.     Else
  536.         MII.fState = (MII.fState Or MFS_GRAYED)
  537.     End If
  538.     MII.fMask = MIIM_STATE
  539.     EnableCloseButton = -3
  540.     If SetMenuItemInfo(hMenu, MII.wID, False, MII) = 0 Then Exit Function
  541.     ' Activate the non-client area of the window to update the titleb
  542.     '     ar, and
  543.     ' draw the close button in its new state.
  544.     SendMessage hwnd, WM_NCACTIVATE, True, 0
  545.     EnableCloseButton = 0
  546. End Function
  547. Sub getactualsize()
  548. If zoo = 1 Then
  549. Form1.zoomdown 2
  550. GoTo dozoo
  551. End If
  552. If zoo = -1 Then
  553. Form1.zoomup 2
  554. GoTo dozoo
  555. End If
  556. dozoo:
  557. zoo = 0
  558. End Sub
  559. Sub lneput(X As Single, Y As Single)
  560. On Error GoTo er
  561. linemax = linemax + 1
  562. Load Form1.Label2(linemax)
  563. Form1.Label2(linemax).Visible = True
  564. Form1.Label2(linemax).Left = X
  565. Form1.Label2(linemax).Top = Y
  566. Form1.Label2(linemax).BackColor = tclr
  567. Form1.Label2(linemax).ZOrder 0
  568. changes = True
  569. Exit Sub
  570. MsgBox Err.Description
  571. End Sub
  572. Sub hmlput(X As Single, Y As Single)
  573. On Error GoTo er
  574. cmax = cmax + 1
  575. Load Form1.Label3(cmax)
  576. Form1.Label3(cmax).Visible = True
  577. Form1.Label3(cmax).Left = X
  578. Form1.Label3(cmax).Top = Y
  579. Form1.Label3(cmax).ZOrder 0
  580. changes = True
  581. Exit Sub
  582. MsgBox Err.Description
  583. End Sub
  584. Sub txtput(X As Single, Y As Single)
  585. On Error GoTo er
  586. textmax = textmax + 1
  587. Load Form1.Label1(textmax)
  588. Form1.Label1(textmax).Visible = True
  589. Form1.Label1(textmax).Left = X
  590. Form1.Label1(textmax).Top = Y
  591. Form1.Label1(textmax).ForeColor = tclr
  592. Form1.Label1(textmax).ZOrder 0
  593. changes = True
  594. Exit Sub
  595. MsgBox Err.Description
  596. End Sub
  597. Sub imgput(X As Single, Y As Single)
  598. On Error GoTo er
  599. imagemax = imagemax + 1
  600. Load Form1.Image1(imagemax)
  601. Form1.Image1(imagemax).ToolTipText = CommonDialog1.filename
  602. Form1.Image1(imagemax).Visible = True
  603. Form1.Image1(imagemax).Left = X
  604. Form1.Image1(imagemax).Top = Y
  605. Form1.Image1(imagemax).Stretch = True
  606. Form1.Image1(imagemax).ZOrder 0
  607. Dim str1 As String
  608. Dim str2 As String
  609. indexctrl = imagemax
  610. changes = True
  611. Exit Sub
  612. If Err.Number <> 32755 Then
  613. MsgBox Err.Description
  614. End If
  615. End Sub
  616. Sub paste()
  617. On Error Resume Next
  618. Dim no As Integer
  619. Dim i As Integer
  620. no = FreeFile
  621. Open App.Path & "\clip.txt" For Input As #no
  622. Input #no, a
  623. Input #no, b
  624. Input #no, c
  625. Input #no, d
  626. Input #no, e
  627. Input #no, f
  628. Input #no, g
  629. Input #no, h
  630. Input #no, i
  631. Input #no, j
  632. Input #no, k
  633. Input #no, l
  634. Input #no, m
  635. Input #no, n
  636. Input #no, o
  637. Input #no, p
  638. Input #no, Q
  639. Input #no, r
  640. If a = "Label" Then
  641. If r = "Text" Then
  642. textmax = textmax + 1
  643. Load Form1.Label1(textmax)
  644. Form1.Label1(textmax).Caption = b
  645. Form1.Label1(textmax).Width = c
  646. Form1.Label1(textmax).Height = d
  647. Form1.Label1(textmax).Left = e + 500
  648. Form1.Label1(textmax).Top = f + 500
  649. Form1.Label1(textmax).BackStyle = i
  650. Form1.Label1(textmax).BackColor = g
  651. Form1.Label1(textmax).ForeColor = h
  652. Form1.Label1(textmax).FontName = j
  653. Form1.Label1(textmax).FontSize = k
  654. Form1.Label1(textmax).FontBold = l
  655. Form1.Label1(textmax).FontUnderline = m
  656. Form1.Label1(textmax).FontItalic = n
  657. Form1.Label1(textmax).Alignment = o
  658. Form1.Label1(textmax).Tag = Q
  659. Form1.Label1(textmax).ToolTipText = r
  660. Form1.Label1(textmax).ZOrder 0
  661. tcde(textmax) = p
  662. Form1.Label1(textmax).Visible = True
  663. textmax = textmax + 1
  664. End If
  665. If r = "Line" Then
  666. linemax = linemax + 1
  667. Load Form1.Label2(linemax)
  668. Form1.Label2(linemax).Caption = b
  669. Form1.Label2(linemax).Width = c
  670. Form1.Label2(linemax).Height = d
  671. Form1.Label2(linemax).Left = e + 500
  672. Form1.Label2(linemax).Top = f + 500
  673. Form1.Label2(linemax).BackStyle = i
  674. Form1.Label2(linemax).BackColor = g
  675. Form1.Label2(linemax).ForeColor = h
  676. Form1.Label2(linemax).FontName = j
  677. Form1.Label2(linemax).FontSize = k
  678. Form1.Label2(linemax).FontBold = l
  679. Form1.Label2(linemax).FontUnderline = m
  680. Form1.Label2(linemax).FontItalic = n
  681. Form1.Label2(linemax).Alignment = o
  682. Form1.Label2(linemax).ToolTipText = r
  683. Form1.Label2(linemax).Tag = Q
  684. Form1.Label2(linemax).ZOrder 0
  685. Form1.Label2(linemax).Visible = True
  686. linemax = linemax + 1
  687. End If
  688. If r = "Html code" Then
  689. cmax = cmax + 1
  690. Load Form1.Label3(cmax)
  691. Form1.Label3(cmax).Caption = b
  692. Form1.Label3(cmax).Width = c
  693. Form1.Label3(cmax).Height = d
  694. Form1.Label3(cmax).Left = e + 500
  695. Form1.Label3(cmax).Top = f + 500
  696. Form1.Label3(cmax).BackStyle = i
  697. Form1.Label3(cmax).BackColor = g
  698. Form1.Label3(cmax).ForeColor = h
  699. Form1.Label3(cmax).FontName = j
  700. Form1.Label3(cmax).FontSize = k
  701. Form1.Label3(cmax).FontBold = l
  702. Form1.Label3(cmax).FontUnderline = m
  703. Form1.Label3(cmax).FontItalic = n
  704. Form1.Label3(cmax).Alignment = o
  705. Form1.Label3(cmax).ToolTipText = r
  706. Form1.Label3(cmax).Tag = Q
  707. Form1.Label3(cmax).ZOrder 0
  708. Form1.Label3(cmax).Visible = True
  709. cmax = cmax + 1
  710. End If
  711. End If
  712. If a = "Shape" Then
  713. shapemax = shapemax + 1
  714. Load Form1.Shape1(shapemax)
  715. Form1.Shape1(shapemax).Shape = b
  716. Form1.Shape1(shapemax).Width = c
  717. Form1.Shape1(shapemax).Height = d
  718. Form1.Shape1(shapemax).Left = e + 500
  719. Form1.Shape1(shapemax).Top = f + 500
  720. Form1.Shape1(shapemax).BackStyle = i
  721. Form1.Shape1(shapemax).BackColor = g
  722. Form1.Shape1(shapemax).BorderColor = h
  723. Form1.Shape1(shapemax).BorderStyle = j
  724. Form1.Shape1(shapemax).BorderWidth = k
  725. Form1.Shape1(shapemax).Visible = True
  726. shapemax = shapemax + 1
  727. End If
  728. If a = "Image" Then
  729. imagemax = imagemax + 1
  730. Load Form1.Image1(imagemax)
  731. Form1.Image1(imagemax).Width = b
  732. Form1.Image1(imagemax).Height = c
  733. Form1.Image1(imagemax).Left = d + 500
  734. Form1.Image1(imagemax).Top = e + 500
  735. Form1.Image1(imagemax).ToolTipText = f
  736. Form1.Image1(imagemax).Stretch = True
  737. Form1.Image1(imagemax).Visible = True
  738. Form1.Image1(imagemax).Picture = LoadPicture(f)
  739. Form1.Image1(imagemax).Tag = Q
  740. Form1.Image1(imagemax).ZOrder 0
  741. icde(imagemax) = p
  742. imagemax = imagemax + 1
  743. End If
  744. Close #no
  745. End Sub
  746. Sub copy()
  747. On Error Resume Next
  748. Dim no As Integer
  749. Dim i As Integer
  750. no = FreeFile
  751. Open App.Path & "\clip.txt" For Output As #no
  752. If ctrltype = "text" Then
  753. Write #no, "Label"
  754. Write #no, Form1.Label1(ccindexx).Caption
  755. Write #no, Form1.Label1(ccindexx).Width
  756. Write #no, Form1.Label1(ccindexx).Height
  757. Write #no, Form1.Label1(ccindexx).Left
  758. Write #no, Form1.Label1(ccindexx).Top
  759. Write #no, Form1.Label1(ccindexx).BackColor
  760. Write #no, Form1.Label1(ccindexx).ForeColor
  761. Write #no, Form1.Label1(ccindexx).BackStyle
  762. Write #no, Form1.Label1(ccindexx).FontName
  763. Write #no, Form1.Label1(ccindexx).FontSize
  764. Write #no, Form1.Label1(ccindexx).FontBold
  765. Write #no, Form1.Label1(ccindexx).FontUnderline
  766. Write #no, Form1.Label1(ccindexx).FontItalic
  767. Write #no, Form1.Label1(ccindexx).Alignment
  768. Write #no, tcde(Form1.Label1(ccindexx).Index)
  769. Write #no, Form1.Label1(ccindexx).Tag
  770. Write #no, Form1.Label1(ccindexx).ToolTipText
  771. End If
  772. If ctrltype = "html" Then
  773. Write #no, "Label"
  774. Write #no, Form1.Label3(ccindexx).Caption
  775. Write #no, Form1.Label3(ccindexx).Width
  776. Write #no, Form1.Label3(ccindexx).Height
  777. Write #no, Form1.Label3(ccindexx).Left
  778. Write #no, Form1.Label3(ccindexx).Top
  779. Write #no, Form1.Label3(ccindexx).BackColor
  780. Write #no, Form1.Label3(ccindexx).ForeColor
  781. Write #no, Form1.Label3(ccindexx).BackStyle
  782. Write #no, Form1.Label3(ccindexx).FontName
  783. Write #no, Form1.Label3(ccindexx).FontSize
  784. Write #no, Form1.Label3(ccindexx).FontBold
  785. Write #no, Form1.Label3(ccindexx).FontUnderline
  786. Write #no, Form1.Label3(ccindexx).FontItalic
  787. Write #no, Form1.Label3(ccindexx).Alignment
  788. Write #no, tcde(Form1.Label3(ccindexx).Index)
  789. Write #no, Form1.Label3(ccindexx).Tag
  790. Write #no, Form1.Label3(ccindexx).ToolTipText
  791. End If
  792. If ctrltype = "line" Then
  793. Write #no, "Label"
  794. Write #no, Form1.Label2(ccindexx).Caption
  795. Write #no, Form1.Label2(ccindexx).Width
  796. Write #no, Form1.Label2(ccindexx).Height
  797. Write #no, Form1.Label2(ccindexx).Left
  798. Write #no, Form1.Label2(ccindexx).Top
  799. Write #no, Form1.Label2(ccindexx).BackColor
  800. Write #no, Form1.Label2(ccindexx).ForeColor
  801. Write #no, Form1.Label2(ccindexx).BackStyle
  802. Write #no, Form1.Label2(ccindexx).FontName
  803. Write #no, Form1.Label2(ccindexx).FontSize
  804. Write #no, Form1.Label2(ccindexx).FontBold
  805. Write #no, Form1.Label2(ccindexx).FontUnderline
  806. Write #no, Form1.Label2(ccindexx).FontItalic
  807. Write #no, Form1.Label2(ccindexx).Alignment
  808. Write #no, tcde(Form1.Label2(ccindexx).Index)
  809. Write #no, Form1.Label2(ccindexx).Tag
  810. Write #no, Form1.Label2(ccindexx).ToolTipText
  811. End If
  812. If ctrltype = "image" Then
  813. Write #no, "Image"
  814. Write #no, Form1.Image1(ccindexx).Width
  815. Write #no, Form1.Image1(ccindexx).Height
  816. Write #no, Form1.Image1(ccindexx).Left
  817. Write #no, Form1.Image1(ccindexx).Top
  818. Write #no, Form1.Image1(ccindexx).ToolTipText
  819. Write #no, "none"
  820. Write #no, "none"
  821. Write #no, "none"
  822. Write #no, "none"
  823. Write #no, "none"
  824. Write #no, "none"
  825. Write #no, "none"
  826. Write #no, "none"
  827. Write #no, "none"
  828. Write #no, "none"
  829. Write #no, icde(Form1.Controls(i).Index)
  830. Write #no, Form1.Controls(i).Tag
  831. End If
  832. Close #no
  833. End Sub
  834. Sub delete()
  835. On Error Resume Next
  836. Form1.ShowHandles False
  837. Form1.DragEnd
  838. If ctrltype = "text" Then
  839. Unload Form1.Label1(ccindexx)
  840. End If
  841. If ctrltype = "line" Then
  842. Unload Form1.Label2(ccindexx)
  843. End If
  844. If ctrltype = "html" Then
  845. Unload Form1.Label3(ccindexx)
  846. End If
  847. If ctrltype = "image" Then
  848. Unload Form1.Image1(ccindexx)
  849. End If
  850. End Sub
  851. Sub newpage()
  852. On Error Resume Next
  853. Dim res As VbMsgBoxResult
  854. If dirty = True Then
  855. res = MsgBox("Do you want to save changes to current page?", vbYesNoCancel)
  856. If res = vbYes Then
  857. saveas
  858. getactualsize
  859. curfile = ""
  860. Unload Form1
  861. Form1.Show
  862. dirty = False
  863. End If
  864. If res = vbNo Then
  865. getactualsize
  866. curfile = ""
  867. Unload Form1
  868. Form1.Show
  869. dirty = False
  870. End If
  871. If res = vbCancel Then
  872. Exit Sub
  873. End If
  874. getactualsize
  875. curfile = ""
  876. Unload Form1
  877. Form1.Show
  878. dirty = False
  879. End If
  880. End Sub
  881. Sub exitit()
  882. On Error Resume Next
  883. Dim res As VbMsgBoxResult
  884. If dirty = True Then
  885. res = MsgBox("Do you want to save changes to current page?", vbYesNoCancel)
  886. If res = vbYes Then
  887. saveas
  888. getactualsize
  889. curfile = ""
  890. dirty = False
  891. End If
  892. If res = vbNo Then
  893. getactualsize
  894. curfile = ""
  895. dirty = False
  896. End If
  897. If res = vbCancel Then
  898. Exit Sub
  899. End If
  900. End If
  901. End Sub
  902. Sub saveas()
  903. On Error GoTo errr:
  904. If curfile = "" Then
  905. With MDI.CommonDialog1
  906. getactualsize
  907. .Filter = "Page designer files (*.mpf)|*.mpf|All files (*.*)|*.|"
  908. .ShowSave
  909. Savepage .filename
  910. curfile = .filename
  911. dirty = False
  912. End With
  913. Exit Sub
  914. getactualsize
  915. Savepage curfile
  916. dirty = False
  917. Exit Sub
  918. End If
  919. Exit Sub
  920. errr:
  921. If Err.Number = 32755 Then
  922. Exit Sub
  923. MsgBox Err.Description
  924. End If
  925. End Sub
  926. Sub openpge()
  927. On Error GoTo errr
  928. Dim res As VbMsgBoxResult
  929. If dirty = True Then
  930. res = MsgBox("Do you want to save changes to current page?", vbYesNoCancel)
  931. If res = vbYes Then
  932. saveas
  933. getactualsize
  934. With MDI.CommonDialog1
  935. .Filter = "Page designer files (*.mpf)|*.mpf|All files (*.*)|*.|"
  936. .ShowOpen
  937. curfile = .filename
  938. Unload Form1
  939. Form1.Show
  940. Openpage .filename
  941. dirty = False
  942. End With
  943. curfile = ""
  944. End If
  945. If res = vbNo Then
  946. With MDI.CommonDialog1
  947. getactualsize
  948. .Filter = "Page designer files (*.mpf)|*.mpf|All files (*.*)|*.|"
  949. .ShowOpen
  950. curfile = .filename
  951. Unload Form1
  952. Form1.Show
  953. Openpage .filename
  954. dirty = False
  955. End With
  956. End If
  957. If res = vbCancel Then
  958. Exit Sub
  959. End If
  960. With MDI.CommonDialog1
  961. getactualsize
  962. .Filter = "Page designer files (*.mpf)|*.mpf|All files (*.*)|*.|"
  963. .ShowOpen
  964. curfile = .filename
  965. Unload Form1
  966. Form1.Show
  967. Openpage .filename
  968. End With
  969. dirty = False
  970. End If
  971. Exit Sub
  972. errr:
  973. If Err.Number = 32755 Then
  974. Exit Sub
  975. MsgBox Err.Description
  976. curfile = ""
  977. End If
  978. End Sub
  979. Sub saveit(filename As String)
  980. On Error GoTo er
  981. Savepage filename
  982. Exit Sub
  983. If Err.Number <> 32755 Then
  984. MsgBox Err.Description
  985. End If
  986. End Sub
  987. Private Sub BtnGraphic6_Click()
  988. End Sub
  989. Private Sub Check1_Click()
  990. Form1.Label1(Text1.Tag).FontBold = (Check1.Value <> 0)
  991. End Sub
  992. Private Sub Check2_Click()
  993. Form1.Label1(Text1.Tag).FontItalic = (Check2.Value <> 0)
  994. End Sub
  995. Private Sub Check3_Click()
  996. Form1.Label1(Text1.Tag).FontUnderline = (Check3.Value <> 0)
  997. changes = True
  998. End Sub
  999. Private Sub Check4_Click()
  1000. On Error Resume Next
  1001. Form1.Label1(Text1.Tag).BackStyle = Check4.Value
  1002. End Sub
  1003. Private Sub Check5_Click()
  1004. Form1.Shape1(Picture7.Tag).BackStyle = Check5.Value
  1005. End Sub
  1006. Private Sub Combo2_Click()
  1007. On Error Resume Next
  1008. Form1.Label1(Text1.Tag).FontName = Combo2.Text
  1009. changes = True
  1010. End Sub
  1011. Private Sub Combo3_Click()
  1012. On Error Resume Next
  1013. Form1.Label1(Text1.Tag).FontSize = Combo3.Text
  1014. changes = True
  1015. End Sub
  1016. Private Sub Combo4_Click()
  1017. On Error Resume Next
  1018. Form1.Shape1(Picture7.Tag).BorderStyle = Combo4.ListIndex
  1019. End Sub
  1020. Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  1021. On Error Resume Next
  1022. If KeyCode = vbKeyReturn Then
  1023. WebBrowser1.Navigate Combo1.Text
  1024. Combo1.AddItem Combo1.Text
  1025. End If
  1026. End Sub
  1027. Private Sub Command1_Click()
  1028. On Error Resume Next
  1029. WebBrowser1.GoBack
  1030. End Sub
  1031. Private Sub Command2_Click()
  1032. On Error Resume Next
  1033. WebBrowser1.GoForward
  1034. End Sub
  1035. Private Sub Command3_Click()
  1036. On Error Resume Next
  1037. If Picture13.Height = 1725 Then
  1038. Picture13.Height = 4725
  1039. Exit Sub
  1040. Picture13.Height = 1725
  1041. Exit Sub
  1042. End If
  1043. End Sub
  1044. Private Sub Command4_Click()
  1045. On Error Resume Next
  1046. WebBrowser1.Navigate "http://www.geocities.com/ResearchTriangle/Campus/4598/pd.html"
  1047. End Sub
  1048. Private Sub Command5_Click()
  1049. On Error Resume Next
  1050. WebBrowser1.Refresh
  1051. End Sub
  1052. Private Sub Command6_Click()
  1053. End Sub
  1054. Private Sub Command7_Click()
  1055. On Error Resume Next
  1056. getactualsize
  1057. savehtml App.Path & "\tmp.html"
  1058. WebBrowser1.Navigate App.Path & "\tmp.html"
  1059. End Sub
  1060. Private Sub Command8_Click()
  1061. Form1.Width = Form1.Width - 1000
  1062. End Sub
  1063. Private Sub Command9_Click()
  1064. paste
  1065. End Sub
  1066. Private Sub Label1_Click()
  1067. Picture6.Visible = False
  1068. End Sub
  1069. Private Sub Label11_Click()
  1070. newpage
  1071. End Sub
  1072. Private Sub Label16_Click(Index As Integer)
  1073. On Error GoTo er
  1074. shapemax = shapemax + 1
  1075. Load Form1.Shape1(shapemax)
  1076. Form1.Shape1(shapemax).Visible = True
  1077. Form1.Shape1(shapemax).Left = 0
  1078. Form1.Shape1(shapemax).Top = 0
  1079. Form1.Shape1(shapemax).Shape = Index
  1080. Picture6.Visible = False
  1081. changes = True
  1082. Exit Sub
  1083. MsgBox Err.Description
  1084. End Sub
  1085. Private Sub Label17_Click()
  1086. On Error GoTo er
  1087. CommonDialog1.Filter = "Windows bitmap(*.bmp)|*.bmp|Windows Metafile(*.wmf)|*.wmf|Gif images(*.gif)|*.gif|Jpeg inmages(*.jpg)|*.jpg|Icons(*.ico)|*.ico|Cursers(*.cur)|*.cur|"
  1088. CommonDialog1.ShowOpen
  1089. Picture11.Picture = LoadPicture(CommonDialog1.filename)
  1090. Picture11.Tag = CommonDialog1.filename
  1091. Exit Sub
  1092. If Err.Number <> 32755 Then
  1093. MsgBox Err.Description
  1094. End If
  1095. End Sub
  1096. Private Sub Label18_Click()
  1097. openpge
  1098. changes = False
  1099. End Sub
  1100. Private Sub Label19_Click()
  1101. saveas
  1102. End Sub
  1103. Private Sub Label20_Click()
  1104. With MDI.CommonDialog1
  1105. .Filter = "Page designer files (*.mpf)|*.mpf|All files (*.*)|*.|"
  1106. .ShowSave
  1107. Savepage .filename
  1108. curfile = .filename
  1109. End With
  1110. End Sub
  1111. Private Sub Label21_Click()
  1112. Form3.Show vbModal
  1113. End Sub
  1114. Private Sub Label3_Click()
  1115. Picture6.Visible = False
  1116. End Sub
  1117. Private Sub Label5_Click(Index As Integer)
  1118. Picture6.Visible = False
  1119. End Sub
  1120. Private Sub MDIForm_Load()
  1121. On Error Resume Next
  1122. Dim X As Integer
  1123. curfile = ""
  1124. Form1.Show
  1125. curfile = ""
  1126. dirty = False
  1127. Combo1.Text = "http://www.geocities.com/ResearchTriangle/Campus/4598/pd.html"
  1128. X = EnableCloseButton(Me.hwnd, False)
  1129. Open "c:\no.fle" For Input As #2
  1130. Input #2, newnum
  1131. If newnum >= 30 Then
  1132. MsgBox "Trial version expired"
  1133. Kill "c:\fond.fle"
  1134. Exit Sub
  1135. End If
  1136. Close #2
  1137. Open "c:\date.fle" For Input As #1
  1138. Input #1, d
  1139. l = Format(d, "dd")
  1140. X = Format(Date, "dd")
  1141. If l <> X Then
  1142. Open "c:\no.fle" For Output As #3
  1143. Write #3, newnum + 1
  1144. Close #3
  1145. End If
  1146. Close #1
  1147. Open "c:\date.fle" For Output As #4
  1148. Write #4, Date
  1149. Close #4
  1150. Open "c:\fond.fle" For Input As #5
  1151. Input #5, c
  1152. Close #5
  1153. If c = "fond" Then
  1154. Open "c:\fond.fle" For Input As #6
  1155. Write #6, "fond"
  1156. Close #6
  1157. Open "c:\first.fle" For Input As #7
  1158. Input #7, f
  1159. Close #7
  1160. If f = "new" Then
  1161. MsgBox "program already installed and expired"
  1162. Kill "c:\fond.fle"
  1163. Exit Sub
  1164. Open "c:\fond.fle" For Output As #9
  1165. Write #9, "fond"
  1166. Close #9
  1167. Open "c:\first.fle" For Output As #8
  1168. Write #8, "new"
  1169. Close #8
  1170. End If
  1171. End If
  1172. End Sub
  1173. Private Sub MDIForm_Resize()
  1174. On Error Resume Next
  1175. Form1.Left = ((MDI.Width - Toolbar2.Width) - Form1.Width) / 2
  1176. Form1.Top = (MDI.Height - Form1.Height - MDI.Picture13.Height) / 2
  1177. End Sub
  1178. Private Sub MDIForm_Unload(Cancel As Integer)
  1179. 'exitit
  1180. End Sub
  1181. Private Sub mnuabout_Click()
  1182. On Error Resume Next
  1183. frmAbout.Show vbModal
  1184. End Sub
  1185. Private Sub mnuas_Click()
  1186. getactualsize
  1187. End Sub
  1188. Private Sub mnubuy_Click()
  1189. On Error Resume Next
  1190. WebBrowser1.Navigate "http://www.geocities.com/ResearchTriangle/Campus/4598/pdbuy.html"
  1191. End Sub
  1192. Private Sub mnucontent_Click()
  1193. On Error Resume Next
  1194.     Dim Scr_hDC As Long
  1195.     Dim startdoc As Long
  1196.     Dim l, txtt
  1197.     Scr_hDC = GetDesktopWindow()
  1198.     l = InStr(1, App.Path, "\", 1)
  1199.     txtt = Mid(App.Path, 1, l)
  1200.     startdoc = ShellExecute(Scr_hDC, "Open", App.Path & "\PDhelp.chm", "", txtt, SW_SHOWNORMAL)
  1201.        
  1202.         If Err Then
  1203.            MsgBox Err.Description
  1204.         End If
  1205. End Sub
  1206. Private Sub mnucopy_Click()
  1207. End Sub
  1208. Private Sub mnucut_Click()
  1209. delete
  1210. End Sub
  1211. Private Sub mnudelete_Click()
  1212. delete
  1213. End Sub
  1214. Private Sub mnudwn_Click()
  1215. If zoo > -1 Then
  1216. Form1.zoomdown 2
  1217. End If
  1218. End Sub
  1219. Private Sub mnuexit_Click()
  1220. exitit
  1221. End Sub
  1222. Private Sub mnuexp_Click()
  1223. On Error GoTo errr:
  1224. With MDI.CommonDialog1
  1225. .Filter = "Html files (*.html)|*.html|Htm files (*.htm)|*.htm|All files (*.*)|*.|"
  1226. .ShowSave
  1227. getactualsize
  1228. savehtml .filename
  1229. End With
  1230. Exit Sub
  1231. errr:
  1232. If Err.Number = 32755 Then
  1233. Exit Sub
  1234. MsgBox Err.Description
  1235. End If
  1236. End Sub
  1237. Private Sub mnuhtled_Click()
  1238. On Error Resume Next
  1239. Shell App.Path & "\web page editor.exe", vbNormalFocus
  1240. End Sub
  1241. Private Sub mnuhtml_Click()
  1242. addctrl = "tag"
  1243. End Sub
  1244. Private Sub mnuimage_Click()
  1245. addctrl = "image"
  1246. End Sub
  1247. Private Sub mnuline_Click()
  1248. addctrl = "line"
  1249. End Sub
  1250. Private Sub mnulive_Click()
  1251. clipa.Show
  1252. End Sub
  1253. Private Sub mnunew_Click()
  1254. newpage
  1255. End Sub
  1256. Private Sub mnuopen_Click()
  1257. openpge
  1258. End Sub
  1259. Private Sub mnupagesetup_Click()
  1260. Form3.Show vbModal
  1261. End Sub
  1262. Private Sub mnupaste_Click()
  1263. paste
  1264. End Sub
  1265. Private Sub mnuprint_Click()
  1266. On Error Resume Next
  1267. Form1.ShowHandles False
  1268. getactualsize
  1269. Form1.PrintForm
  1270. End Sub
  1271. Private Sub mnuprintsetup_Click()
  1272. On Error GoTo errr:
  1273. With MDI.CommonDialog1
  1274. .ShowPrinter
  1275. End With
  1276. Exit Sub
  1277. errr:
  1278. If Err.Number = 32755 Then
  1279. Exit Sub
  1280. MsgBox Err.Description
  1281. End If
  1282. End Sub
  1283. Private Sub mnusave_Click()
  1284. saveas
  1285. End Sub
  1286. Private Sub mnutext_Click()
  1287. addctrl = "text"
  1288. End Sub
  1289. Private Sub mnysaveas_Click()
  1290. With MDI.CommonDialog1
  1291. .Filter = "Page designer files (*.mpf)|*.mpf|All files (*.*)|*.|"
  1292. .ShowSave
  1293. Savepage .filename
  1294. curfile = .filename
  1295. End With
  1296. End Sub
  1297. Private Sub nbup_Click()
  1298. If zoo < 1 Then
  1299. Form1.zoomup 2
  1300. End If
  1301. End Sub
  1302. Private Sub Picture13_Resize()
  1303. On Error Resume Next
  1304. WebBrowser1.Height = Picture13.Height - WebBrowser1.Top
  1305. WebBrowser1.Width = Picture13.Width - WebBrowser1.Left
  1306. Combo1.Width = Picture13.Width - Combo1.Left
  1307. End Sub
  1308. Private Sub UButton1_Click()
  1309. End Sub
  1310. Private Sub UButton1_GotMouse()
  1311. MyAgent.Stop
  1312. MyAgent.Speak "Click here to add a picture"
  1313. End Sub
  1314. Private Sub UButton2_Click()
  1315. End Sub
  1316.  Private Sub UButton2_GotMouse()
  1317.  MyAgent.Stop
  1318. MyAgent.Speak "Click here to add text"
  1319. End Sub
  1320. Private Sub UButton3_Click()
  1321. End Sub
  1322. Private Sub UButton3_GotMouse()
  1323. MyAgent.Stop
  1324. MyAgent.Speak "Click here to add shape"
  1325. End Sub
  1326. Private Sub Timer1_Timer()
  1327. End Sub
  1328. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  1329. Select Case Button.Key
  1330. Case "new"
  1331. newpage
  1332. Case "open"
  1333. openpge
  1334. Case "save"
  1335. saveas
  1336. Case "cut"
  1337. delete
  1338. Case "copy"
  1339. Case "paste"
  1340. paste
  1341. End Select
  1342. End Sub
  1343. Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
  1344. Select Case Button.Key
  1345. Case "image"
  1346. addctrl = "image"
  1347. Case "text"
  1348. addctrl = "text"
  1349. Case "tag"
  1350. addctrl = "tag"
  1351. Case "line"
  1352. addctrl = "line"
  1353. Case "mouse"
  1354. addctrl = "mouse"
  1355. End Select
  1356. End Sub
  1357. Private Sub WebBrowser1_TitleChange(ByVal Text As String)
  1358. On Error Resume Next
  1359. Command8.Caption = Text
  1360. End Sub
  1361.